home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fbr12c / fbrunway.bas < prev    next >
BASIC Source File  |  1995-05-09  |  4KB  |  123 lines
  1. DefInt A-Z
  2. Declare Function GetProfileString Lib "Kernel" (ByVal Appname$, ByVal lpKeyName$, ByVal DEFAULT$, ByVal RetString$, ByVal nSize%) As Integer
  3. Declare Function WriteProfileString Lib "Kernel" (ByVal Appname$, ByVal KeyName$, ByVal KeyValue As Any) As Integer
  4.  
  5. Sub FrameBarFrm (Frm As Form, BBar As Control)
  6.     tp = Frm.ScaleTop + BBar.Top + BBar.Height
  7.     lf = Frm.ScaleLeft + 7
  8.     bt = Frm.ScaleHeight - 8
  9.     rt = Frm.ScaleWidth - 15
  10.     Frm.Line (lf, bt)-(rt, bt), GREY
  11.     Frm.Line (rt, tp)-(rt, bt), GREY
  12.     Frm.Line (lf + 15, tp + 15)-(rt - 15, tp + 15), WHITE
  13.     Frm.Line (lf + 15, tp + 15)-(lf + 15, bt - 15), WHITE
  14.     Frm.Line (lf + 15, bt - 15)-(rt - 15, bt - 15), GREY
  15.     Frm.Line (rt - 15, tp + 15)-(rt - 15, bt - 15), GREY
  16. End Sub
  17.  
  18. Sub FrameCtrl (Frm As Form, CtlT As Control, CtlL As Control, CtlB As Control, CtlR As Control)
  19.     oot = CtlT.Top - 15
  20.     ool = CtlL.Left - 15
  21.     oob = CtlB.Top + CtlB.Height + 7
  22.     oor = CtlR.Left + CtlR.Width + 7
  23.     Frm.Line (ool, oot)-(oor, oot), GREY
  24.     Frm.Line (ool, oot)-(ool, oob), GREY
  25.     Frm.Line (ool - 15, oot - 15)-(oor + 15, oot - 15), GREY
  26.     Frm.Line (ool - 15, oot - 15)-(ool - 15, oob + 15), GREY
  27.     Frm.Line (ool - 15, oob + 15)-(oor + 17, oob + 15), WHITE
  28.     Frm.Line (oor + 15, oot - 15)-(oor + 15, oob + 17), WHITE
  29. End Sub
  30.  
  31. Sub FrameFrm (Frm As Form)
  32.     tp = Frm.ScaleTop
  33.     lf = Frm.ScaleLeft + 7
  34.     bt = Frm.ScaleHeight - 8
  35.     rt = Frm.ScaleWidth - 15
  36.     Frm.Line (lf, bt)-(rt, bt), GREY
  37.     Frm.Line (rt, tp)-(rt, bt), GREY
  38.     Frm.Line (lf + 15, tp + 15)-(rt - 15, tp + 15), WHITE
  39.     Frm.Line (lf + 15, tp + 15)-(lf + 15, bt - 15), WHITE
  40.     Frm.Line (lf + 15, bt - 15)-(rt - 15, bt - 15), GREY
  41.     Frm.Line (rt - 15, tp + 15)-(rt - 15, bt - 15), GREY
  42. End Sub
  43.  
  44. Sub FrameLeftStat (Frm As Form, Ctrl As Control)
  45.     l1t = Ctrl.Top - 30
  46.     l1l = Ctrl.Left - 15
  47.     l1b = Ctrl.Top + Ctrl.Height + 22
  48.     l1r = Ctrl.Left + Ctrl.Width + 7
  49.     Frm.Line (l1l, l1t)-(l1r, l1t), GREY
  50.     Frm.Line (l1l, l1t)-(l1l, l1b), GREY
  51.     Frm.Line (l1r, l1t)-(l1r, l1b), WHITE
  52.     Frm.Line (l1l - 15, l1t - 15)-(l1r + 15, l1t - 15), GREY
  53.     Frm.Line (l1l - 15, l1t - 15)-(l1l - 15, l1b + 15), GREY
  54.     Frm.Line (l1l - 15, l1b + 15)-(l1r + 15, l1b + 15), WHITE
  55. End Sub
  56.  
  57. Sub FrameMidStat (Frm As Form, Ctrl As Control)
  58.     l2t = Ctrl.Top - 30
  59.     l2l = Ctrl.Left - 15
  60.     l2b = Ctrl.Top + Ctrl.Height + 22
  61.     l2r = Ctrl.Left + Ctrl.Width + 7
  62.     Frm.Line (l2l, l2t)-(l2r, l2t), GREY
  63.     Frm.Line (l2l, l2t)-(l2l, l2b), GREY
  64.     Frm.Line (l2r, l2t)-(l2r, l2b), WHITE
  65.     Frm.Line (l2l - 15, l2t - 15)-(l2r + 15, l2t - 15), GREY
  66.     Frm.Line (l2l - 15, l2b + 15)-(l2r + 15, l2b + 15), WHITE
  67. End Sub
  68.  
  69. Sub FrameRightStat (Frm As Form, Ctrl As Control)
  70.     l3t = Ctrl.Top - 30
  71.     l3l = Ctrl.Left - 15
  72.     l3b = Ctrl.Top + Ctrl.Height + 22
  73.     l3r = Ctrl.Left + Ctrl.Width + 7
  74.     Frm.Line (l3l, l3t)-(l3r, l3t), GREY
  75.     Frm.Line (l3l, l3t)-(l3l, l3b), GREY
  76.     Frm.Line (l3l - 15, l3t - 15)-(l3r + 15, l3t - 15), GREY
  77.     Frm.Line (l3l - 15, l3b + 15)-(l3r + 17, l3b + 15), WHITE
  78.     Frm.Line (l3r + 15, l3t - 15)-(l3r + 15, l3b + 17), WHITE
  79. End Sub
  80.  
  81. Function GetWinStr (App As String, Key As String, Def As String) As String
  82.     Catch$ = Space$(255)
  83.     App = LTrim$(RTrim$(App))
  84.     Key = LTrim$(RTrim$(Key))
  85.     Def = LTrim$(RTrim$(Def))
  86.     ZZ = GetProfileString(App, Key, Def, Catch$, 255)
  87.     Catch$ = LTrim$(RTrim$(Left$(Catch$, ZZ)))
  88.     GetWinStr = Catch$
  89.     Catch$ = ""
  90. End Function
  91.  
  92. Sub LeftLabel (Label$, Frm As Form, Ctrl As Control)
  93.    Y = Ctrl.Top + ((Ctrl.Height - Frm.TextHeight(Label$)) / 2)
  94.    X = Ctrl.Left - (Frm.TextWidth(Label$) + 45)
  95.    C& = Frm.ForeColor
  96.    Frm.ForeColor = WHITE
  97.    Frm.CurrentY = Y + 15
  98.    Frm.CurrentX = X + 15
  99.    Frm.Print Label$;
  100.    Frm.ForeColor = C&
  101.    Frm.CurrentY = Y' + 15
  102.    Frm.CurrentX = X' + 15
  103.    Frm.Print Label$;
  104. End Sub
  105.  
  106. Function PutWinINI (App As String, Key As String, KeyVal As String) As Integer
  107.     App = LTrim$(RTrim$(App))
  108.     Key = LTrim$(RTrim$(Key))
  109.     KeyVal = LTrim$(RTrim$(KeyVal))
  110.     If Len(KeyVal) Then
  111.         XYZ = WriteProfileString(App, Key, ByVal KeyVal)
  112.     Else
  113.         XYZ = WriteProfileString(App, Key, ByVal 0&)
  114.     End If
  115.     Select Case XYZ
  116.         Case 0
  117.             PutWinINI = False
  118.         Case Else
  119.             PutWinINI = True
  120.     End Select
  121. End Function
  122.  
  123.